/**
 * Created by kevenfeng on 2016/10/12.
 */
// Regular Expressions for parsing tags and attributes
var startTag = /^<([-A-Za-z0-9_]+)((?:\s+[a-zA-Z_:][-a-zA-Z0-9_:.]*(?:\s*=\s*(?:(?:"[^"]*")|(?:'[^']*')|[^>\s]+))?)*)\s*(\/?)>/,
    endTag = /^<\/([-A-Za-z0-9_]+)[^>]*>/,
    attr = /([a-zA-Z_:][-a-zA-Z0-9_:.]*)(?:\s*=\s*(?:(?:"((?:\\.|[^"])*)")|(?:'((?:\\.|[^'])*)')|([^>\s]+)))?/g; // Empty Elements - HTML 5

var empty = makeMap("area,base,basefont,br,col,frame,hr,img,input,link,meta,param,embed,command,keygen,source,track,wbr"); // Block Elements - HTML 5

var block = makeMap("a,address,article,applet,aside,audio,blockquote,button,canvas,center,dd,del,dir,div,dl,dt,fieldset,figcaption,figure,footer,form,frameset,h1,h2,h3,h4,h5,h6,header,hgroup,hr,iframe,ins,isindex,li,map,menu,noframes,noscript,object,ol,output,p,pre,section,script,table,tbody,td,tfoot,th,thead,tr,ul,video"); // Inline Elements - HTML 5

var inline = makeMap("abbr,acronym,applet,b,basefont,bdo,big,br,button,cite,code,del,dfn,em,font,i,iframe,img,input,ins,kbd,label,map,object,q,s,samp,script,select,small,span,strike,strong,sub,sup,textarea,tt,u,var"); // Elements that you can, intentionally, leave open
// (and which close themselves)

var closeSelf = makeMap("colgroup,dd,dt,li,options,p,td,tfoot,th,thead,tr"); // Attributes that have their values filled in disabled="disabled"

var fillAttrs = makeMap("checked,compact,declare,defer,disabled,ismap,multiple,nohref,noresize,noshade,nowrap,readonly,selected"); // Special Elements (can contain anything)

var special = makeMap("script,style");

var HTMLParser = function (html, handler) {
  var index,
      chars,
      match,
      stack = [],
      last = html;

  stack.last = function () {
    return this[this.length - 1];
  };

  while (html) {
    chars = true; // Make sure we're not in a script or style element

    if (!stack.last() || !special[stack.last()]) {
      // Comment
      if (html.indexOf("<!--") == 0) {
        index = html.indexOf("-->");

        if (index >= 0) {
          if (handler.comment) handler.comment(html.substring(4, index));
          html = html.substring(index + 3);
          chars = false;
        } // end tag

      } else if (html.indexOf("</") == 0) {
        match = html.match(endTag);

        if (match) {
          html = html.substring(match[0].length);
          match[0].replace(endTag, parseEndTag);
          chars = false;
        } // start tag

      } else if (html.indexOf("<") == 0) {
        match = html.match(startTag);

        if (match) {
          html = html.substring(match[0].length);
          match[0].replace(startTag, parseStartTag);
          chars = false;
        }
      }

      if (chars) {
        index = html.indexOf("<");
        var text = index < 0 ? html : html.substring(0, index);
        html = index < 0 ? "" : html.substring(index);
        if (handler.chars) handler.chars(text);
      }
    } else {
      html = html.replace(new RegExp("([\\s\\S]*?)<\/" + stack.last() + "[^>]*>"), function (all, text) {
        text = text.replace(/<!--([\s\S]*?)-->|<!\[CDATA\[([\s\S]*?)]]>/g, "$1$2");
        if (handler.chars) handler.chars(text);
        return "";
      });
      parseEndTag("", stack.last());
    }

    if (html == last) throw "Parse Error: " + html;
    last = html;
  } // Clean up any remaining tags


  parseEndTag();

  function parseStartTag(tag, tagName, rest, unary) {
    tagName = tagName.toLowerCase();

    if (block[tagName]) {
      while (stack.last() && inline[stack.last()]) {
        parseEndTag("", stack.last());
      }
    }

    if (closeSelf[tagName] && stack.last() == tagName) {
      parseEndTag("", tagName);
    }

    unary = empty[tagName] || !!unary;
    if (!unary) stack.push(tagName);

    if (handler.start) {
      var attrs = [];
      rest.replace(attr, function (match, name) {
        var value = arguments[2] ? arguments[2] : arguments[3] ? arguments[3] : arguments[4] ? arguments[4] : fillAttrs[name] ? name : "";
        attrs.push({
          name: name,
          value: value,
          escaped: value.replace(/(^|[^\\])"/g, '$1\\\"') //"

        });
      });
      if (handler.start) handler.start(tagName, attrs, unary);
    }
  }

  function parseEndTag(tag, tagName) {
    // If no tag name is provided, clean shop
    if (!tagName) var pos = 0; // Find the closest opened tag of the same type
    else for (var pos = stack.length - 1; pos >= 0; pos--) if (stack[pos] == tagName) break;

    if (pos >= 0) {
      // Close all the open elements, up the stack
      for (var i = stack.length - 1; i >= pos; i--) if (handler.end) handler.end(stack[i]); // Remove the open elements from the stack


      stack.length = pos;
    }
  }
};

function makeMap(str) {
  var obj = {},
      items = str.split(",");

  for (var i = 0; i < items.length; i++) obj[items[i]] = true;

  return obj;
}

var global = {};

var debug = function () {};

function q(v) {
  return '"' + v + '"';
}

function removeDOCTYPE(html) {
  return html.replace(/<\?xml.*\?>\n/, '').replace(/<!doctype.*\>\n/, '').replace(/<!DOCTYPE.*\>\n/, '');
}

global.html2json = function html2json(html) {
  html = removeDOCTYPE(html);
  var bufArray = [];
  var results = {
    node: 'root',
    child: []
  };
  HTMLParser(html, {
    start: function (tag, attrs, unary) {
      debug(tag, attrs, unary); // node for this element

      var node = {
        node: 'element',
        tag: tag
      };

      if (attrs.length !== 0) {
        node.attr = attrs.reduce(function (pre, attr) {
          var name = attr.name;
          var value = attr.value; // has multi attibutes
          // make it array of attribute

          if (value.match(/ /)) {
            value = value.split(' ');
          } // if attr already exists
          // merge it


          if (pre[name]) {
            if (Array.isArray(pre[name])) {
              // already array, push to last
              pre[name].push(value);
            } else {
              // single value, make it array
              pre[name] = [pre[name], value];
            }
          } else {
            // not exist, put it
            pre[name] = value;
          }

          return pre;
        }, {});
      }

      if (unary) {
        // if this tag dosen't have end tag
        // like <img src="hoge.png"/>
        // add to parents
        var parent = bufArray[0] || results;

        if (parent.child === undefined) {
          parent.child = [];
        }

        parent.child.push(node);
      } else {
        bufArray.unshift(node);
      }
    },
    end: function (tag) {
      debug(tag); // merge into parent tag

      var node = bufArray.shift();
      if (node.tag !== tag) console.error('invalid state: mismatch end tag');

      if (bufArray.length === 0) {
        results.child.push(node);
      } else {
        var parent = bufArray[0];

        if (parent.child === undefined) {
          parent.child = [];
        }

        parent.child.push(node);
      }
    },
    chars: function (text) {
      debug(text);
      var node = {
        node: 'text',
        text: text
      };

      if (bufArray.length === 0) {
        results.child.push(node);
      } else {
        var parent = bufArray[0];

        if (parent.child === undefined) {
          parent.child = [];
        }

        parent.child.push(node);
      }
    },
    comment: function (text) {
      debug(text);
      var node = {
        node: 'comment',
        text: text
      };
      var parent = bufArray[0];

      if (parent.child === undefined) {
        parent.child = [];
      }

      parent.child.push(node);
    }
  });
  return results;
};

global.json2html = function json2html(json) {
  // Empty Elements - HTML 4.01
  var empty = ['area', 'base', 'basefont', 'br', 'col', 'frame', 'hr', 'img', 'input', 'isindex', 'link', 'meta', 'param', 'embed'];
  var child = '';

  if (json.child) {
    child = json.child.map(function (c) {
      return json2html(c);
    }).join('');
  }

  var attr = '';

  if (json.attr) {
    attr = Object.keys(json.attr).map(function (key) {
      var value = json.attr[key];
      if (Array.isArray(value)) value = value.join(' ');
      return key + '=' + q(value);
    }).join(' ');
    if (attr !== '') attr = ' ' + attr;
  }

  if (json.node === 'element') {
    var tag = json.tag;

    if (empty.indexOf(tag) > -1) {
      // empty element
      return '<' + json.tag + attr + '/>';
    } // non empty element


    var open = '<' + json.tag + attr + '>';
    var close = '</' + json.tag + '>';
    return open + child + close;
  }

  if (json.node === 'text') {
    return json.text;
  }

  if (json.node === 'comment') {
    return '<!--' + json.text + '-->';
  }

  if (json.node === 'root') {
    return child;
  }
};

var html2wxwebview = function (html) {
  var htmlNode = global.html2json(html);
  htmlNode = parseHtmlNode(htmlNode);
  htmlNode = arrangeNode(htmlNode);
  return htmlNode;
}; //整理节点


var arrangeNode = function (htmlNode) {
  var arrangeArray = [];
  var nodeObj = [];

  for (var i = 0, j = htmlNode.length; i < j; i++) {
    if (i == 0) {
      if (htmlNode[i].type == "view") {
        continue;
      }

      arrangeArray.push(htmlNode[i]);
    } else {
      if (htmlNode[i].type == "view") {
        if (arrangeArray.length > 0) {
          var obj = {
            type: "view",
            child: arrangeArray
          };
          nodeObj.push(obj);
        }

        arrangeArray = [];
      } else if (htmlNode[i].type == "img") {
        if (arrangeArray.length > 0) {
          var obj = {
            type: "view",
            child: arrangeArray
          };
          nodeObj.push(obj);
        }

        var attr = htmlNode[i].attr;

        if (htmlNode[i].attr.width && htmlNode[i].attr.width.indexOf('%') === -1 && htmlNode[i].attr.width.indexOf('px') === -1) {
          htmlNode[i].attr.width = htmlNode[i].attr.width + 'px';
        }

        if (htmlNode[i].attr.height && htmlNode[i].attr.height.indexOf('%') === -1 && htmlNode[i].attr.height.indexOf('px') === -1) {
          htmlNode[i].attr.height = htmlNode[i].attr.height + 'px';
        }

        var obj = {
          type: "img",
          attr: attr
        };
        nodeObj.push(obj);
        arrangeArray = [];
      } else {
        arrangeArray.push(htmlNode[i]);

        if (i == j - 1) {
          var obj = {
            type: "view",
            child: arrangeArray
          };
          nodeObj.push(obj);
        }
      }
    }
  }

  return nodeObj;
}; //将html节点转成小程序可用的接口


var parseHtmlNode = function (htmlNode) {
  var tagsArray = [];

  var parsetags = function (node) {
    var tag = {};

    if (node.node == "root") {} else if (node.node == "element") {
      switch (node.tag) {
        case "a":
          tag = {
            type: "a",
            text: node.child[0].text
          };
          break;

        case "img":
          tag = {
            type: "img",
            text: node.text
          };
          break;

        case "p":
          tag = {
            type: "view",
            text: node.text
          };
          break;

        case "div":
          tag = {
            type: "view",
            text: node.text
          };
          break;
      }
    } else if (node.node == "text") {
      tag = {
        type: "text",
        text: node.text
      };
    }

    if (node.attr) {
      tag.attr = node.attr;
    }

    if (Object.keys(tag).length != 0) {
      // if(tag.text||node.tag=="img"){
      tagsArray.push(tag); // }
    }

    if (node.tag == "a") {
      //如果是a标签就不去解析他的child
      return;
    }

    var child = node.child;

    if (child) {
      for (var val in child) {
        parsetags(child[val]);
      }
    }
  };

  parsetags(htmlNode);
  return tagsArray;
};

module.exports = {
  html2json: html2wxwebview
};